unit Class_Group;

interface
uses
  Classes,SysUtils;

type
  TGroup = class(TObject)
  public
    StudName : string;
    YUwEN : integer;
    SHUXUE: integer;
    YINGYU : integer;
    ZHENGZHI:integer;
  public
    function  ZONGFEN : Integer;
  end;

implementation

{ TGroup }

function TGroup.ZONGFEN: Integer;
begin
  Result := YUwEN  + SHUXUE + YINGYU + ZHENGZHI;
end;

end.
